home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1998 January: Mac OS SDK / Dev.CD Jan 98 SDK1.toast / Development Kits (Disc 1) / Interfaces&Libraries / Universal / Interfaces / AIncludes / Components.a < prev    next >
Encoding:
Text File  |  1997-08-12  |  24.2 KB  |  831 lines  |  [TEXT/MPS ]
  1. ;
  2. ;    File:        Components.a
  3. ;
  4. ;    Contains:    Component Manager Interfaces.
  5. ;
  6. ;    Version:    Technology:    System 7.5
  7. ;                Release:    Universal Interfaces 3.0.1
  8. ;
  9. ;    Copyright:    © 1991-1997 by Apple Computer, Inc., all rights reserved.
  10. ;
  11. ;    Bugs?:        Please include the the file and version information (from above) with
  12. ;                the problem description.  Developers belonging to one of the Apple
  13. ;                developer programs can submit bug reports to:
  14. ;
  15. ;                    devsupport@apple.com
  16. ;
  17. ;
  18.     IF &TYPE('__COMPONENTS__') = 'UNDEFINED' THEN
  19. __COMPONENTS__ SET 1
  20.  
  21.     IF &TYPE('__ERRORS__') = 'UNDEFINED' THEN
  22.     include 'Errors.a'
  23.     ENDIF
  24.     IF &TYPE('__TYPES__') = 'UNDEFINED' THEN
  25.     include 'Types.a'
  26.     ENDIF
  27.     IF &TYPE('__MIXEDMODE__') = 'UNDEFINED' THEN
  28.     include 'MixedMode.a'
  29.     ENDIF
  30.  
  31.  
  32. kAppleManufacturer                EQU        'appl'                ; Apple supplied components 
  33. kComponentResourceType            EQU        'thng'                ; a components resource type 
  34.  
  35. kAnyComponentType                EQU        0
  36. kAnyComponentSubType            EQU        0
  37. kAnyComponentManufacturer        EQU        0
  38. kAnyComponentFlagsMask            EQU        0
  39.  
  40. cmpWantsRegisterMessage            EQU        $80000000
  41.  
  42. kComponentOpenSelect            EQU        -1                    ; ComponentInstance for this open 
  43. kComponentCloseSelect            EQU        -2                    ; ComponentInstance for this close 
  44. kComponentCanDoSelect            EQU        -3                    ; selector # being queried 
  45. kComponentVersionSelect            EQU        -4                    ; no params 
  46. kComponentRegisterSelect        EQU        -5                    ; no params 
  47. kComponentTargetSelect            EQU        -6                    ; ComponentInstance for top of call chain 
  48. kComponentUnregisterSelect        EQU        -7                    ; no params 
  49. kComponentGetMPWorkFunctionSelect EQU    -8                    ; some params 
  50. ;  Component Resource Extension flags 
  51.  
  52. componentDoAutoVersion            EQU        $01
  53. componentWantsUnregister        EQU        $02
  54. componentAutoVersionIncludeFlags EQU    $04
  55. componentHasMultiplePlatforms    EQU        $08
  56.  
  57.  
  58. ;  Set Default Component flags 
  59.  
  60. defaultComponentIdentical        EQU        0
  61. defaultComponentAnyFlags        EQU        1
  62. defaultComponentAnyManufacturer    EQU        2
  63. defaultComponentAnySubType        EQU        4
  64. defaultComponentAnyFlagsAnyManufacturer EQU 3
  65. defaultComponentAnyFlagsAnyManufacturerAnySubType EQU 7
  66. ;  RegisterComponentResource flags 
  67.  
  68. registerComponentGlobal            EQU        1
  69. registerComponentNoDuplicates    EQU        2
  70. registerComponentAfterExisting    EQU        4
  71.  
  72. ComponentDescription    RECORD 0
  73. componentType             ds.l    1                ; offset: $0 (0)        ;  A unique 4-byte code indentifying the command set 
  74. componentSubType         ds.l    1                ; offset: $4 (4)        ;  Particular flavor of this instance 
  75. componentManufacturer     ds.l    1                ; offset: $8 (8)        ;  Vendor indentification 
  76. componentFlags             ds.l    1                ; offset: $C (12)        ;  8 each for Component,Type,SubType,Manuf/revision 
  77. componentFlagsMask         ds.l    1                ; offset: $10 (16)        ;  Mask for specifying which flags to consider in search, zero during registration 
  78. sizeof                     EQU *                    ; size:   $14 (20)
  79.                         ENDR
  80.  
  81. ResourceSpec            RECORD 0
  82. resType                     ds.l    1                ; offset: $0 (0)        ;  4-byte code  
  83. resID                     ds.w    1                ; offset: $4 (4)        ;               
  84. sizeof                     EQU *                    ; size:   $6 (6)
  85.                         ENDR
  86. ComponentResource        RECORD 0
  87. cd                         ds        ComponentDescription ; offset: $0 (0)    ;  Registration parameters 
  88. component                 ds        ResourceSpec    ; offset: $14 (20)        ;  resource where Component code is found 
  89. componentName             ds        ResourceSpec    ; offset: $1A (26)        ;  name string resource 
  90. componentInfo             ds        ResourceSpec    ; offset: $20 (32)        ;  info string resource 
  91. componentIcon             ds        ResourceSpec    ; offset: $26 (38)        ;  icon resource 
  92. sizeof                     EQU *                    ; size:   $2C (44)
  93.                         ENDR
  94. ; typedef struct ComponentResource *    ComponentResourcePtr
  95.  
  96. ; typedef ComponentResourcePtr *        ComponentResourceHandle
  97.  
  98. ComponentPlatformInfo    RECORD 0
  99. componentFlags             ds.l    1                ; offset: $0 (0)        ;  flags of Component 
  100. component                 ds        ResourceSpec    ; offset: $4 (4)        ;  resource where Component code is found 
  101. platformType             ds.w    1                ; offset: $A (10)        ;  gestaltSysArchitecture result 
  102. sizeof                     EQU *                    ; size:   $C (12)
  103.                         ENDR
  104. ComponentResourceExtension RECORD 0
  105. componentVersion         ds.l    1                ; offset: $0 (0)        ;  version of Component 
  106. componentRegisterFlags     ds.l    1                ; offset: $4 (4)        ;  flags for registration 
  107. componentIconFamily         ds.w    1                ; offset: $8 (8)        ;  resource id of Icon Family 
  108. sizeof                     EQU *                    ; size:   $A (10)
  109.                         ENDR
  110. ComponentPlatformInfoArray RECORD 0
  111. count                     ds.l    1                ; offset: $0 (0)
  112. platformArray             ds        ComponentPlatformInfo ; offset: $4 (4) <-- really an array of length one
  113. sizeof                     EQU *                    ; size:   $10 (16)
  114.                         ENDR
  115. ExtComponentResource    RECORD 0
  116. cd                         ds        ComponentDescription ; offset: $0 (0)    ;  registration parameters 
  117. component                 ds        ResourceSpec    ; offset: $14 (20)        ;  resource where Component code is found 
  118. componentName             ds        ResourceSpec    ; offset: $1A (26)        ;  name string resource 
  119. componentInfo             ds        ResourceSpec    ; offset: $20 (32)        ;  info string resource 
  120. componentIcon             ds        ResourceSpec    ; offset: $26 (38)        ;  icon resource 
  121. componentVersion         ds.l    1                ; offset: $2C (44)        ;  version of Component 
  122. componentRegisterFlags     ds.l    1                ; offset: $30 (48)        ;  flags for registration 
  123. componentIconFamily         ds.w    1                ; offset: $34 (52)        ;  resource id of Icon Family 
  124. count                     ds.l    1                ; offset: $36 (54)        ;  elements in platformArray 
  125. platformArray             ds        ComponentPlatformInfo ; offset: $3A (58) <-- really an array of length one
  126. sizeof                     EQU *                    ; size:   $46 (70)
  127.                         ENDR
  128. ;   Structure received by Component:        
  129. ComponentParameters        RECORD 0
  130. flags                     ds.b    1                ; offset: $0 (0)        ;  call modifiers: sync/async, deferred, immed, etc 
  131. paramSize                 ds.b    1                ; offset: $1 (1)        ;  size in bytes of actual parameters passed to this call 
  132. what                     ds.w    1                ; offset: $2 (2)        ;  routine selector, negative for Component management calls 
  133. params                     ds.l    1                ; offset: $4 (4) <-- really an array of length one ;  actual parameters for the indicated routine 
  134. sizeof                     EQU *                    ; size:   $8 (8)
  135.                         ENDR
  136. ComponentRecord            RECORD 0
  137. data                     ds.l    1                ; offset: $0 (0) <-- really an array of length one
  138. sizeof                     EQU *                    ; size:   $4 (4)
  139.                         ENDR
  140. ; typedef struct ComponentRecord *        Component
  141.  
  142. ComponentInstanceRecord    RECORD 0
  143. data                     ds.l    1                ; offset: $0 (0) <-- really an array of length one
  144. sizeof                     EQU *                    ; size:   $4 (4)
  145.                         ENDR
  146. ; typedef struct ComponentInstanceRecord * ComponentInstance
  147.  
  148. RegisteredComponentRecord RECORD 0
  149. data                     ds.l    1                ; offset: $0 (0) <-- really an array of length one
  150. sizeof                     EQU *                    ; size:   $4 (4)
  151.                         ENDR
  152. RegisteredComponentInstanceRecord RECORD 0
  153. data                     ds.l    1                ; offset: $0 (0) <-- really an array of length one
  154. sizeof                     EQU *                    ; size:   $4 (4)
  155.                         ENDR
  156. ; typedef struct RegisteredComponentInstanceRecord * RegisteredComponentInstanceRecordPtr
  157.  
  158. ; typedef long                             ComponentResult
  159.  
  160.  
  161. mpWorkFlagDoWork                EQU        $01
  162. mpWorkFlagDoCompletion            EQU        $02
  163. mpWorkFlagCopyWorkBlock            EQU        $04
  164. mpWorkFlagDontBlock                EQU        $08
  165. mpWorkFlagGetProcessorCount        EQU        $10
  166. mpWorkFlagGetIsRunning            EQU        $40
  167. ComponentMPWorkFunctionHeaderRecord RECORD 0
  168. headerSize                 ds.l    1                ; offset: $0 (0)
  169. recordSize                 ds.l    1                ; offset: $4 (4)
  170. workFlags                 ds.l    1                ; offset: $8 (8)
  171. processorCount             ds.w    1                ; offset: $C (12)
  172. unused                     ds.b    1                ; offset: $E (14)
  173. isRunning                 ds.b    1                ; offset: $F (15)
  174. sizeof                     EQU *                    ; size:   $10 (16)
  175.                         ENDR
  176. ; typedef struct ComponentMPWorkFunctionHeaderRecord * ComponentMPWorkFunctionHeaderRecordPtr
  177.  
  178. ; 
  179. ;    The parameter list for each ComponentFunction is unique. It is
  180. ;    therefore up to users to create the appropriate procInfo for their
  181. ;    own ComponentFunctions where necessary.
  182. ;
  183.  
  184. ; typedef UniversalProcPtr                 ComponentFunctionUPP
  185.  
  186.  
  187. ; ********************************************************
  188. ;*                                                        *
  189. ;*                  APPLICATION LEVEL CALLS                    *
  190. ;*                                                        *
  191. ;*******************************************************
  192.  
  193. ; ********************************************************
  194. ;* Component Database Add, Delete, and Query Routines
  195. ;*******************************************************
  196.  
  197. ;
  198. ; pascal Component RegisterComponent(ComponentDescription *cd, ComponentRoutineUPP componentEntryPoint, short global, Handle componentName, Handle componentInfo, Handle componentIcon)
  199. ;
  200.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  201.         Macro
  202.         _RegisterComponent
  203.             moveq               #1,D0
  204.             dc.w                $A82A
  205.         EndM
  206.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  207.         IMPORT_CFM_FUNCTION RegisterComponent
  208.     ENDIF
  209.  
  210. ;
  211. ; pascal Component RegisterComponentResource(ComponentResourceHandle cr, short global)
  212. ;
  213.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  214.         Macro
  215.         _RegisterComponentResource
  216.             moveq               #18,D0
  217.             dc.w                $A82A
  218.         EndM
  219.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  220.         IMPORT_CFM_FUNCTION RegisterComponentResource
  221.     ENDIF
  222.  
  223. ;
  224. ; pascal OSErr UnregisterComponent(Component aComponent)
  225. ;
  226.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  227.         Macro
  228.         _UnregisterComponent
  229.             moveq               #2,D0
  230.             dc.w                $A82A
  231.         EndM
  232.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  233.         IMPORT_CFM_FUNCTION UnregisterComponent
  234.     ENDIF
  235.  
  236. ;
  237. ; pascal Component FindNextComponent(Component aComponent, ComponentDescription *looking)
  238. ;
  239.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  240.         Macro
  241.         _FindNextComponent
  242.             moveq               #4,D0
  243.             dc.w                $A82A
  244.         EndM
  245.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  246.         IMPORT_CFM_FUNCTION FindNextComponent
  247.     ENDIF
  248.  
  249. ;
  250. ; pascal long CountComponents(ComponentDescription *looking)
  251. ;
  252.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  253.         Macro
  254.         _CountComponents
  255.             moveq               #3,D0
  256.             dc.w                $A82A
  257.         EndM
  258.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  259.         IMPORT_CFM_FUNCTION CountComponents
  260.     ENDIF
  261.  
  262. ;
  263. ; pascal OSErr GetComponentInfo(Component aComponent, ComponentDescription *cd, Handle componentName, Handle componentInfo, Handle componentIcon)
  264. ;
  265.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  266.         Macro
  267.         _GetComponentInfo
  268.             moveq               #5,D0
  269.             dc.w                $A82A
  270.         EndM
  271.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  272.         IMPORT_CFM_FUNCTION GetComponentInfo
  273.     ENDIF
  274.  
  275. ;
  276. ; pascal long GetComponentListModSeed(void )
  277. ;
  278.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  279.         Macro
  280.         _GetComponentListModSeed
  281.             moveq               #6,D0
  282.             dc.w                $A82A
  283.         EndM
  284.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  285.         IMPORT_CFM_FUNCTION GetComponentListModSeed
  286.     ENDIF
  287.  
  288. ;
  289. ; pascal long GetComponentTypeModSeed(OSType componentType)
  290. ;
  291.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  292.         Macro
  293.         _GetComponentTypeModSeed
  294.             moveq               #44,D0
  295.             dc.w                $A82A
  296.         EndM
  297.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  298.         IMPORT_CFM_FUNCTION GetComponentTypeModSeed
  299.     ENDIF
  300.  
  301. ; ********************************************************
  302. ;* Component Instance Allocation and dispatch routines
  303. ;*******************************************************
  304.  
  305. ;
  306. ; pascal OSErr OpenAComponent(Component aComponent, ComponentInstance *ci)
  307. ;
  308.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  309.         Macro
  310.         _OpenAComponent
  311.             moveq               #45,D0
  312.             dc.w                $A82A
  313.         EndM
  314.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  315.         IMPORT_CFM_FUNCTION OpenAComponent
  316.     ENDIF
  317.  
  318. ;
  319. ; pascal ComponentInstance OpenComponent(Component aComponent)
  320. ;
  321.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  322.         Macro
  323.         _OpenComponent
  324.             moveq               #7,D0
  325.             dc.w                $A82A
  326.         EndM
  327.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  328.         IMPORT_CFM_FUNCTION OpenComponent
  329.     ENDIF
  330.  
  331. ;
  332. ; pascal OSErr CloseComponent(ComponentInstance aComponentInstance)
  333. ;
  334.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  335.         Macro
  336.         _CloseComponent
  337.             moveq               #8,D0
  338.             dc.w                $A82A
  339.         EndM
  340.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  341.         IMPORT_CFM_FUNCTION CloseComponent
  342.     ENDIF
  343.  
  344. ;
  345. ; pascal OSErr GetComponentInstanceError(ComponentInstance aComponentInstance)
  346. ;
  347.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  348.         Macro
  349.         _GetComponentInstanceError
  350.             moveq               #10,D0
  351.             dc.w                $A82A
  352.         EndM
  353.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  354.         IMPORT_CFM_FUNCTION GetComponentInstanceError
  355.     ENDIF
  356.  
  357. ; ********************************************************
  358. ;*                                                        *
  359. ;*                      CALLS MADE BY COMPONENTS              *
  360. ;*                                                        *
  361. ;*******************************************************
  362.  
  363. ; ********************************************************
  364. ;* Component Management routines
  365. ;*******************************************************
  366.  
  367. ;
  368. ; pascal void SetComponentInstanceError(ComponentInstance aComponentInstance, OSErr theError)
  369. ;
  370.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  371.         Macro
  372.         _SetComponentInstanceError
  373.             moveq               #11,D0
  374.             dc.w                $A82A
  375.         EndM
  376.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  377.         IMPORT_CFM_FUNCTION SetComponentInstanceError
  378.     ENDIF
  379.  
  380. ;
  381. ; pascal long GetComponentRefcon(Component aComponent)
  382. ;
  383.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  384.         Macro
  385.         _GetComponentRefcon
  386.             moveq               #16,D0
  387.             dc.w                $A82A
  388.         EndM
  389.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  390.         IMPORT_CFM_FUNCTION GetComponentRefcon
  391.     ENDIF
  392.  
  393. ;
  394. ; pascal void SetComponentRefcon(Component aComponent, long theRefcon)
  395. ;
  396.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  397.         Macro
  398.         _SetComponentRefcon
  399.             moveq               #17,D0
  400.             dc.w                $A82A
  401.         EndM
  402.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  403.         IMPORT_CFM_FUNCTION SetComponentRefcon
  404.     ENDIF
  405.  
  406. ;
  407. ; pascal short OpenComponentResFile(Component aComponent)
  408. ;
  409.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  410.         Macro
  411.         _OpenComponentResFile
  412.             moveq               #21,D0
  413.             dc.w                $A82A
  414.         EndM
  415.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  416.         IMPORT_CFM_FUNCTION OpenComponentResFile
  417.     ENDIF
  418.  
  419. ;
  420. ; pascal OSErr OpenAComponentResFile(Component aComponent, short *resRef)
  421. ;
  422.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  423.         Macro
  424.         _OpenAComponentResFile
  425.             moveq               #47,D0
  426.             dc.w                $A82A
  427.         EndM
  428.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  429.         IMPORT_CFM_FUNCTION OpenAComponentResFile
  430.     ENDIF
  431.  
  432. ;
  433. ; pascal OSErr CloseComponentResFile(short refnum)
  434. ;
  435.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  436.         Macro
  437.         _CloseComponentResFile
  438.             moveq               #24,D0
  439.             dc.w                $A82A
  440.         EndM
  441.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  442.         IMPORT_CFM_FUNCTION CloseComponentResFile
  443.     ENDIF
  444.  
  445. ; ********************************************************
  446. ;* Component Instance Management routines
  447. ;*******************************************************
  448.  
  449. ;
  450. ; pascal Handle GetComponentInstanceStorage(ComponentInstance aComponentInstance)
  451. ;
  452.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  453.         Macro
  454.         _GetComponentInstanceStorage
  455.             moveq               #12,D0
  456.             dc.w                $A82A
  457.         EndM
  458.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  459.         IMPORT_CFM_FUNCTION GetComponentInstanceStorage
  460.     ENDIF
  461.  
  462. ;
  463. ; pascal void SetComponentInstanceStorage(ComponentInstance aComponentInstance, Handle theStorage)
  464. ;
  465.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  466.         Macro
  467.         _SetComponentInstanceStorage
  468.             moveq               #13,D0
  469.             dc.w                $A82A
  470.         EndM
  471.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  472.         IMPORT_CFM_FUNCTION SetComponentInstanceStorage
  473.     ENDIF
  474.  
  475. ;
  476. ; pascal long GetComponentInstanceA5(ComponentInstance aComponentInstance)
  477. ;
  478.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  479.         Macro
  480.         _GetComponentInstanceA5
  481.             moveq               #14,D0
  482.             dc.w                $A82A
  483.         EndM
  484.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  485.         IMPORT_CFM_FUNCTION GetComponentInstanceA5
  486.     ENDIF
  487.  
  488. ;
  489. ; pascal void SetComponentInstanceA5(ComponentInstance aComponentInstance, long theA5)
  490. ;
  491.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  492.         Macro
  493.         _SetComponentInstanceA5
  494.             moveq               #15,D0
  495.             dc.w                $A82A
  496.         EndM
  497.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  498.         IMPORT_CFM_FUNCTION SetComponentInstanceA5
  499.     ENDIF
  500.  
  501. ;
  502. ; pascal long CountComponentInstances(Component aComponent)
  503. ;
  504.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  505.         Macro
  506.         _CountComponentInstances
  507.             moveq               #19,D0
  508.             dc.w                $A82A
  509.         EndM
  510.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  511.         IMPORT_CFM_FUNCTION CountComponentInstances
  512.     ENDIF
  513.  
  514. ;  useful helper routines for convenient method dispatching 
  515. ;
  516. ; pascal long CallComponentFunction(ComponentParameters *params, ComponentFunctionUPP func)
  517. ;
  518.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  519.         Macro
  520.         _CallComponentFunction
  521.             moveq               #-1,D0
  522.             dc.w                $A82A
  523.         EndM
  524.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  525.         IMPORT_CFM_FUNCTION CallComponentFunction
  526.     ENDIF
  527.  
  528. ;
  529. ; pascal long CallComponentFunctionWithStorage(Handle storage, ComponentParameters *params, ComponentFunctionUPP func)
  530. ;
  531.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  532.         Macro
  533.         _CallComponentFunctionWithStorage
  534.             moveq               #-1,D0
  535.             dc.w                $A82A
  536.         EndM
  537.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  538.         IMPORT_CFM_FUNCTION CallComponentFunctionWithStorage
  539.     ENDIF
  540.  
  541.     IF TARGET_CPU_PPC THEN
  542. ;
  543. ; pascal long CallComponentFunctionWithStorageProcInfo(Handle storage, ComponentParameters *params, ProcPtr func, long funcProcInfo)
  544. ;
  545.     IF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  546.         IMPORT_CFM_FUNCTION CallComponentFunctionWithStorageProcInfo
  547.     ENDIF
  548.  
  549.     ELSE
  550.     ENDIF    ; TARGET_CPU_PPC
  551. ;
  552. ; pascal long DelegateComponentCall(ComponentParameters *originalParams, ComponentInstance ci)
  553. ;
  554.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  555.         Macro
  556.         _DelegateComponentCall
  557.             moveq               #36,D0
  558.             dc.w                $A82A
  559.         EndM
  560.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  561.         IMPORT_CFM_FUNCTION DelegateComponentCall
  562.     ENDIF
  563.  
  564. ;
  565. ; pascal OSErr SetDefaultComponent(Component aComponent, short flags)
  566. ;
  567.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  568.         Macro
  569.         _SetDefaultComponent
  570.             moveq               #30,D0
  571.             dc.w                $A82A
  572.         EndM
  573.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  574.         IMPORT_CFM_FUNCTION SetDefaultComponent
  575.     ENDIF
  576.  
  577. ;
  578. ; pascal ComponentInstance OpenDefaultComponent(OSType componentType, OSType componentSubType)
  579. ;
  580.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  581.         Macro
  582.         _OpenDefaultComponent
  583.             moveq               #33,D0
  584.             dc.w                $A82A
  585.         EndM
  586.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  587.         IMPORT_CFM_FUNCTION OpenDefaultComponent
  588.     ENDIF
  589.  
  590. ;
  591. ; pascal OSErr OpenADefaultComponent(OSType componentType, OSType componentSubType, ComponentInstance *ci)
  592. ;
  593.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  594.         Macro
  595.         _OpenADefaultComponent
  596.             moveq               #46,D0
  597.             dc.w                $A82A
  598.         EndM
  599.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  600.         IMPORT_CFM_FUNCTION OpenADefaultComponent
  601.     ENDIF
  602.  
  603. ;
  604. ; pascal Component CaptureComponent(Component capturedComponent, Component capturingComponent)
  605. ;
  606.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  607.         Macro
  608.         _CaptureComponent
  609.             moveq               #28,D0
  610.             dc.w                $A82A
  611.         EndM
  612.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  613.         IMPORT_CFM_FUNCTION CaptureComponent
  614.     ENDIF
  615.  
  616. ;
  617. ; pascal OSErr UncaptureComponent(Component aComponent)
  618. ;
  619.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  620.         Macro
  621.         _UncaptureComponent
  622.             moveq               #29,D0
  623.             dc.w                $A82A
  624.         EndM
  625.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  626.         IMPORT_CFM_FUNCTION UncaptureComponent
  627.     ENDIF
  628.  
  629. ;
  630. ; pascal long RegisterComponentResourceFile(short resRefNum, short global)
  631. ;
  632.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  633.         Macro
  634.         _RegisterComponentResourceFile
  635.             moveq               #20,D0
  636.             dc.w                $A82A
  637.         EndM
  638.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  639.         IMPORT_CFM_FUNCTION RegisterComponentResourceFile
  640.     ENDIF
  641.  
  642. ;
  643. ; pascal OSErr GetComponentIconSuite(Component aComponent, Handle *iconSuite)
  644. ;
  645.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  646.         Macro
  647.         _GetComponentIconSuite
  648.             moveq               #41,D0
  649.             dc.w                $A82A
  650.         EndM
  651.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  652.         IMPORT_CFM_FUNCTION GetComponentIconSuite
  653.     ENDIF
  654.  
  655.  
  656. ; ********************************************************
  657. ;*                                                        *
  658. ;*              Direct calls to the Components                *
  659. ;*                                                        *
  660. ;*******************************************************
  661.  
  662. ;  Old style names
  663.  
  664. ;
  665. ; pascal long ComponentFunctionImplemented(ComponentInstance ci, short ftnNumber)
  666. ;
  667.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  668.         Macro
  669.         _ComponentFunctionImplemented
  670.             move.l              #$0002FFFD,-(sp)
  671.             moveq               #0,D0
  672.             dc.w                $A82A
  673.         EndM
  674.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  675.         IMPORT_CFM_FUNCTION ComponentFunctionImplemented
  676.     ENDIF
  677.  
  678. ;
  679. ; pascal long GetComponentVersion(ComponentInstance ci)
  680. ;
  681.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  682.         Macro
  683.         _GetComponentVersion
  684.             move.l              #$0000FFFC,-(sp)
  685.             moveq               #0,D0
  686.             dc.w                $A82A
  687.         EndM
  688.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  689.         IMPORT_CFM_FUNCTION GetComponentVersion
  690.     ENDIF
  691.  
  692. ;
  693. ; pascal long ComponentSetTarget(ComponentInstance ci, ComponentInstance target)
  694. ;
  695.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  696.         Macro
  697.         _ComponentSetTarget
  698.             move.l              #$0004FFFA,-(sp)
  699.             moveq               #0,D0
  700.             dc.w                $A82A
  701.         EndM
  702.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  703.         IMPORT_CFM_FUNCTION ComponentSetTarget
  704.     ENDIF
  705.  
  706. ;  New style names
  707.  
  708. ;
  709. ; pascal ComponentResult CallComponentOpen(ComponentInstance ci, ComponentInstance self)
  710. ;
  711.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  712.         Macro
  713.         _CallComponentOpen
  714.             move.l              #$0004FFFF,-(sp)
  715.             moveq               #0,D0
  716.             dc.w                $A82A
  717.         EndM
  718.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  719.         IMPORT_CFM_FUNCTION CallComponentOpen
  720.     ENDIF
  721.  
  722. ;
  723. ; pascal ComponentResult CallComponentClose(ComponentInstance ci, ComponentInstance self)
  724. ;
  725.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  726.         Macro
  727.         _CallComponentClose
  728.             move.l              #$0004FFFE,-(sp)
  729.             moveq               #0,D0
  730.             dc.w                $A82A
  731.         EndM
  732.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  733.         IMPORT_CFM_FUNCTION CallComponentClose
  734.     ENDIF
  735.  
  736. ;
  737. ; pascal ComponentResult CallComponentCanDo(ComponentInstance ci, short ftnNumber)
  738. ;
  739.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  740.         Macro
  741.         _CallComponentCanDo
  742.             move.l              #$0002FFFD,-(sp)
  743.             moveq               #0,D0
  744.             dc.w                $A82A
  745.         EndM
  746.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  747.         IMPORT_CFM_FUNCTION CallComponentCanDo
  748.     ENDIF
  749.  
  750. ;
  751. ; pascal ComponentResult CallComponentVersion(ComponentInstance ci)
  752. ;
  753.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  754.         Macro
  755.         _CallComponentVersion
  756.             move.l              #$0000FFFC,-(sp)
  757.             moveq               #0,D0
  758.             dc.w                $A82A
  759.         EndM
  760.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  761.         IMPORT_CFM_FUNCTION CallComponentVersion
  762.     ENDIF
  763.  
  764. ;
  765. ; pascal ComponentResult CallComponentRegister(ComponentInstance ci)
  766. ;
  767.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  768.         Macro
  769.         _CallComponentRegister
  770.             move.l              #$0000FFFB,-(sp)
  771.             moveq               #0,D0
  772.             dc.w                $A82A
  773.         EndM
  774.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  775.         IMPORT_CFM_FUNCTION CallComponentRegister
  776.     ENDIF
  777.  
  778. ;
  779. ; pascal ComponentResult CallComponentTarget(ComponentInstance ci, ComponentInstance target)
  780. ;
  781.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  782.         Macro
  783.         _CallComponentTarget
  784.             move.l              #$0004FFFA,-(sp)
  785.             moveq               #0,D0
  786.             dc.w                $A82A
  787.         EndM
  788.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  789.         IMPORT_CFM_FUNCTION CallComponentTarget
  790.     ENDIF
  791.  
  792. ;
  793. ; pascal ComponentResult CallComponentUnregister(ComponentInstance ci)
  794. ;
  795.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  796.         Macro
  797.         _CallComponentUnregister
  798.             move.l              #$0000FFF9,-(sp)
  799.             moveq               #0,D0
  800.             dc.w                $A82A
  801.         EndM
  802.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  803.         IMPORT_CFM_FUNCTION CallComponentUnregister
  804.     ENDIF
  805.  
  806. ;
  807. ; pascal ComponentResult CallComponentGetMPWorkFunction(ComponentInstance ci, ComponentMPWorkFunctionUPP *workFunction, void **refCon)
  808. ;
  809.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  810.         Macro
  811.         _CallComponentGetMPWorkFunction
  812.             move.l              #$0008FFF8,-(sp)
  813.             moveq               #0,D0
  814.             dc.w                $A82A
  815.         EndM
  816.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  817.         IMPORT_CFM_FUNCTION CallComponentGetMPWorkFunction
  818.     ENDIF
  819.  
  820.  
  821. ;  UPP call backs 
  822. ;  ProcInfos 
  823.  
  824.  
  825.  
  826.  
  827.  
  828.  
  829.     ENDIF ; __COMPONENTS__ 
  830.  
  831.